CD Access - Your Desktop…oftware Store (Macintosh)/CD Access - Your Desktop Software Store.iso/Product Demos/Aldus SuperPaint® 3.5/Aldus SuperPaint® 3.5•DE/Aldus SuperPaintÆ 3.5•DE.rsrc/BITD_1049.bin

AmigaBASIC Source Code | 1993-07-01 | 687b | 197 lines

                                                                                                                                                                                                                                          EQV
2=+$MODMOD$+MODMOD$varfffff5f6%+$MODIMP
=MOD
&Hea7bzs{{<0xed,0x00>uz<0xed,0x01>O<0x7e>z<0x8796bb>MID$zWAITMOD=<0xed,0xfffffffc>4=LET<0xed,0xfffffffa>{<0x8796ca>z{{<0xed,0xfffffffc>{Oz]zszSTEPzIMP
=<0xed,0xfffffffa>6=<0xed,0xfffffffa><0xed,0xfffffffa>ABSuzu<0x8796e9>u<0xed,0xfffffffc><0xed,0xfffffffa><0xed,0xfffffffa>V<0xed,0xfffffffa>PzMOD=<0xed,0xfffffffa>7=|ASCLET<0xed,0xfffffffa>z<0xed,0xfffffffa><0xed,0xfffffffa>ASC<0xed,0xfffffffa>{<0xed,0xfffffffa>{{V{V<0xed,0xfffffffa>=<0xed,0xfffffffa><0x879716>=ts<0xed,0xfffffffc><0xed,0xfffffffa><0x7e>z116VASCzASC<0xed,0x00>tV{LSET<0xed,0x01><0xed,0x01>=<0x7c>
7=LINEABSz<0xed,0x00>{yP<0xed,0x01>{LETASCASC<0xed,0x01>MID$z<0xed,0x01><0xed,0x01>usvar2bea<0x7d>
<0x879752>=LINE<0xed,0xfffffffc>ASCLINE<0xed,0xfffffffa>V<0xed,0xfffffffa>zOzVASCsszASCz<0xed,0xfffffffa>QABSVMOD=<0x7e>
234z<0xed,0x00>tztzASC<0xed,0x01>V                                                                                                                                                                                                                                                          s<0x7e><0x78,0x00>tPsz<0x78,0x01>z<0x78,0x01>=

=<0x20>V<0x78,0x00>]zzMID$<0x78,0x01>ASCMID$ABSATNz]sTABABSzULINEABSASCASCtMOD=
=MID$<0x7e>z5LINEtCLOSEz<0x78,0x00>ATNtz{s<0x78,0x01><0x78,0x01><0x78,0x01>WAVE<0x78,0x01><0x78,0x01>~tMOD==LINE<0x78,0x01>uMID$\y{<0x78,0x01>ASCzPOKEW<0x78,0x01>ASCz{<0x78,0x01>zVMID$zzuSPC+==PRINTMID$SPC{<0x78,0x01>                                                                                                                          P<0xf8,0x00>t<0xf8,0x01>z{sQz<0xf8,0x01>VVt8t<0xf8,0x01>=
=PRINT{tsVV{stV<0xf8,0x01><0xf8,0x01>V<0xf8,0x01>ABSLSETSTEPASCASCt]<0xf8,0x01>zMOD=

=<0x50><0x7c>Vzu<0xf8,0x00>zz<0xf8,0x01>{<0xf8,0x01>zASCt{zPVz<0xf8,0x01>Oz$=<0x7e>
<0x8798ba>=PRINT<0x7c>INKEY$Vu<0x7e>{2s<0xf8,0x00>V<0xf8,0x01>z{ABSzVLET<0xf8,0x01><0xf8,0x01><0xf8,0x01>MOD=<0x7d>
<0x8798da>=PRINT<0xf8,0xfffffffc>\<0xf8,0xfffffffa>zASCMID$]stABSzCHAINzCHAINzASCssSPC
=<0x7c>
9=PRINTASCzsVzMID$ASCASC<0xf8,0x00>ttz<0xf8,0x01>{<0xf8,0x01>VASCWABSz<0x879913>=<0xf8,0xfffffffc>3=<0x7d>LINE]ztTABLINEzPOKEWz<0xf8,0x00>MKD$<0xf8,0x01>zzASC<0x87992d>LINE<0xf8,0xfffffffc>IMP=<0xf8,0xfffffffa>7=<0x5f>MKD$<0xf8,0x00>Oz]tzASCz{ASCzzy<0xf8,0x01>s<0xf8,0x01><0xf8,0x01>=<0xf8,0x01>6=PRINT<0x7d>s<0xf8,0x00>s                                                                                                                           {UP{zLINE{MID$OPENO<0xf8,0x00>+=<0xf8,0x01>5=PRINTPRINTsASCVPVz<0xf8,0x01>OtzU{ABS{z{ASCASC=\
234PRINTPRINT<0x7d><0x7d>PRINT<0x7c><0x7c>PRINT<0x7d><0x7d>PRINTPRINT<0x7d><0x7c>MKD$<0x8799cd><0x7c>MKD$PRINT<0x7c>=IMP
*=<0x7f>